perm filename LKSGD.F4[TLC,MUS]4 blob sn#073239 filedate 1973-11-16 generic text, type T, neo UTF8
00100	C  GOOD-LOOKS PROGRAM  --  TYPE X TO BACKUP
00200		INTEGER DL,SL,HX,WL
00300	11	FORMAT(A1)
00400	1	FORMAT(' LEGS? GOOD OR BAD?  ',$)
00500	12	TYPE 1
00600		ACCEPT 11,L
00700		IF(L.EQ.'G')GO TO 16
00800	
00900	2	FORMAT(' THIGHS?  ',$)
01000	13	TYPE 2
01100		ACCEPT 11,T
01200		IF(T.EQ.'X')GO TO 12
01300	
01400	3	FORMAT(' KNEES?  ',$)
01500	14	TYPE 3
01600		ACCEPT 11,K
01700		IF(K.EQ.'X')GO TO 13
01800	
01900	4	FORMAT(' CALVES?  ',$)
02000	15	TYPE 4
02100		ACCEPT 11,C
02200		IF(C.EQ.'X')GO TO 14
02300	
02400	5	FORMAT(' ARMS?  ',$)
02500	16	TYPE 5
02600		ACCEPT 11,A
02700		IF(A.EQ.'X')GO TO 15
02800	
02900	6	FORMAT(' SHOULDERS? GOOD, WIDE OR NARROW?  ',$)
03000	17	TYPE 6
03100		ACCEPT 11,S
03200		IF(S.EQ.'X')GO TO 16
03300	
03400	7	FORMAT(' WAIST? GOOD OR WIDE?  ',$)
03500	18	TYPE 7
03600		ACCEPT 11,W
03700		IF(W.EQ.'X')GO TO 17
03800	
03900	8	FORMAT(' HIPS? GOOD, WIDE OR NARROW?  ',$)
04000	19	TYPE 8
04100		ACCEPT 11,H
04200		IF(H.EQ.'X')GO TO 18
04300	
04400	9	FORMAT(' BUST? GOOD, BIG OR SMALL?  ',$)
04500	20	TYPE 9
04600		ACCEPT 11,B
04700		IF(B.EQ.'X')GO TO 19
04800	
04900	10	FORMAT(' NECK? GOOD, LONG OR SHORT?  ',$)
05000		TYPE 10
05100		ACCEPT 11,N
05200		DL=1
05300		IF(L.EQ.'G')GO TO 21
05400	C  JUMP IF GOOD LEGS
05500		IF(T.EQ.'B')DL=2
05600		IF(K.EQ.'B')DL=3
05700		IF(C.EQ.'B')DL=4
05800	21	SL=1
05900		IF(S.EQ.'N')SL=3
06000	C   SHOULDER LINE BEST
06100		IF(S.NE.'W')GO TO 22
06200		SL=2
06300	C   SLEEVELESS BEST, NO SHOULDER LINE
06400		IF(A.EQ.'B')SL=4
06500	C   LONG SLEEVES,NO SHOULDER LINE
06600	41	FORMAT(/' << SKIRT SHOULD BE '$)
06700	22	TYPE 41
06800		GO TO(23,24,25,26),DL
06900	
07000	27	FORMAT('+SHORT.'/)
07100	23	TYPE 27
07200		GO TO 28
07300	
07400	29	FORMAT('+MEDIUM SHORT.'/)
07500	24	TYPE 29
07600		GO TO 28
07700	
07800	30	FORMAT('+MEDIUM LONG.'/)
07900	25	TYPE 30
08000		GO TO 28
08100	
08200	31	FORMAT('+LONG.'/)
08300	26	TYPE 31
08400	
08500	28	GO TO(32,33,34,35),SL
08600	
08700	36	FORMAT(' << ANY SHOULDER CUT.'/)
08800	32	TYPE 36
08900		GO TO 37
09000	
09100	38	FORMAT(' << SLEEVELESS IS BEST.'/)
09200	33	TYPE 38
09300		GO TO 37
09400	
09500	39	FORMAT(' << USE SHOULDER LINE.'/)
09600	34	TYPE 39
09700		GO TO 37
09800	
09900	40	FORMAT(' << LONG SLEEVES BUT NO SHOULDER LINE.'/)
10000	35	TYPE 40
10100	
10110	37	WL=0
10200		IF(W.EQ.'W')WL=1
10300		IF(W.EQ.'N')WL=2
10400		GO TO(42,44),WL
10500		GO TO 45
10600	141	FORMAT(' <<USE NO WAISTLINE.'/)
10700	42	TYPE141
10800		GO TO 45
10900	43	FORMAT(' <<USE WAISTLINE.'/)
11000	44 	TYPE42
11100		GO TO 45
11200	45	IF(H.EQ.'G')GO TO 200
11300		IF(H.EQ.'W')HX=1
11400		IF(H.EQ.'N')HX=2
11500		GO TO (47,490),HX
11600	47	IF(B.EQ.'S')TYPE 48
11700	48	FORMAT(' <<USE EMPIRE WAIST.'/)
11800	56	FORMAT(' USE NO EMPIRE.'/)
11900		IF(B.EQ.'B')TYPE 56
11910		IF(B.EQ.'G')TYPE 493
11920	493	FORMAT(' << USE NO HIP-LINE.'/)
12000		GO TO 200
12100	491	FORMAT(' <<USE HIP-LINE'/)
12200	490	TYPE 491
12300	200	IF(A.EQ.'G')GO TO 201
12310		IF(S.NE.'N')TYPE 492
12320	492	FORMAT(' <<LONG SLEEVES.'/)
12400		IF(S.EQ.'N')TYPE 49
12500	49	FORMAT(' <<USE 3/4 SLEEVE.'/)
12600		GO TO 201
12700	203	TYPE 33
12800	201	IF(B.EQ.'G')GO TO 52
12900		IF(B.EQ.'B')TYPE 51
13000	51	FORMAT(' << NO EMPIRE WAIST.'/)
13100		IF(B.NE.'S')GO TO 202
13200		IF(S.EQ.'W')TYPE 48
13300		IF(S.EQ.'N')TYPE 52
13400	52	FORMAT(' <<USE SHOULDER LINE UNDER-GATHERING.'/)
13500		IF(N.EQ.'L') TYPE 53
13600		IF(N.EQ.'S') TYPE 54
13700	53	FORMAT(' <<USE HI NECKLINE.'/)
13800	54	FORMAT(' <<USE LOW NECKLINE.'/)
13900	202	CALL EXIT
14000		END